home *** CD-ROM | disk | FTP | other *** search
/ Ultra Pack / UltraComputing Partner Applications.iso / SunLabs / tclTK / src / tk4.0p2.patch < prev    next >
Encoding:
Text File  |  1995-09-18  |  51.9 KB  |  1,739 lines
  1. Prereq: "4.0p1"
  2. *** ../tk4.0p1/patchlevel.h    Fri Jul 28 10:08:41 1995
  3. --- patchlevel.h    Mon Sep 18 11:42:16 1995
  4. ***************
  5. *** 17,23 ****
  6.    * See the file "license.terms" for information on usage and redistribution
  7.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  8.    *
  9. !  * @(#) patchlevel.h 1.8 95/07/18 16:23:42
  10.    */
  11.   
  12. ! #define TK_PATCH_LEVEL "4.0p1"
  13. --- 17,23 ----
  14.    * See the file "license.terms" for information on usage and redistribution
  15.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  16.    *
  17. !  * @(#) patchlevel.h 1.9 95/09/18 11:42:14
  18.    */
  19.   
  20. ! #define TK_PATCH_LEVEL "4.0p2"
  21. *** ../tk4.0p1/./tkEvent.c    Wed Jun 21 15:16:37 1995
  22. --- ./tkEvent.c    Mon Aug 28 09:33:14 1995
  23. ***************
  24. *** 14,20 ****
  25.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  26.    */
  27.   
  28. ! static char sccsid[] = "@(#) tkEvent.c 1.97 95/06/21 15:16:33";
  29.   
  30.   #include "tkPort.h"
  31.   #include "tkInt.h"
  32. --- 14,20 ----
  33.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  34.    */
  35.   
  36. ! static char sccsid[] = "@(#) tkEvent.c 1.98 95/08/28 09:33:14";
  37.   
  38.   #include "tkPort.h"
  39.   #include "tkInt.h"
  40. ***************
  41. *** 261,267 ****
  42.       register FileHandler *filePtr;
  43.       int index;
  44.   
  45. !     if (fd >= OPEN_MAX) {
  46.       panic("Tk_CreatefileHandler can't handle file id %d", fd);
  47.       }
  48.   
  49. --- 261,267 ----
  50.       register FileHandler *filePtr;
  51.       int index;
  52.   
  53. !     if (fd >= FD_SETSIZE) {
  54.       panic("Tk_CreatefileHandler can't handle file id %d", fd);
  55.       }
  56.   
  57. *** ../tk4.0p1/./tkFont.c    Sun Jun  4 15:27:43 1995
  58. --- ./tkFont.c    Wed Aug 16 10:27:56 1995
  59. ***************
  60. *** 13,19 ****
  61.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  62.    */
  63.   
  64. ! static char sccsid[] = "@(#) tkFont.c 1.36 95/06/04 15:27:43";
  65.   
  66.   #include "tkPort.h"
  67.   #include "tkInt.h"
  68. --- 13,19 ----
  69.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  70.    */
  71.   
  72. ! static char sccsid[] = "@(#) tkFont.c 1.37 95/08/16 10:27:54";
  73.   
  74.   #include "tkPort.h"
  75.   #include "tkInt.h"
  76. ***************
  77. *** 572,578 ****
  78.       if (newX > maxX) {
  79.           break;
  80.       }
  81. !     c = p[1] & 0xff;
  82.       if (isspace(UCHAR(c)) || (c == 0)) {
  83.           term = p+1;
  84.           termX = newX;
  85. --- 572,582 ----
  86.       if (newX > maxX) {
  87.           break;
  88.       }
  89. !     if (maxChars > 1) {
  90. !         c = p[1] & 0xff;
  91. !     } else {
  92. !         c = 0;
  93. !     }
  94.       if (isspace(UCHAR(c)) || (c == 0)) {
  95.           term = p+1;
  96.           termX = newX;
  97. *** ../tk4.0p1/./tkSelect.c    Thu May 11 09:37:18 1995
  98. --- ./tkSelect.c    Mon Aug 21 10:49:15 1995
  99. ***************
  100. *** 12,18 ****
  101.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  102.    */
  103.   
  104. ! static char sccsid[] = "@(#) tkSelect.c 1.47 95/05/11 09:37:15";
  105.   
  106.   #include "tkPort.h"
  107.   #include "tkInt.h"
  108. --- 12,18 ----
  109.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  110.    */
  111.   
  112. ! static char sccsid[] = "@(#) tkSelect.c 1.48 95/08/21 10:49:09";
  113.   
  114.   #include "tkPort.h"
  115.   #include "tkInt.h"
  116. ***************
  117. *** 488,496 ****
  118.       infoPtr->owner = tkwin;
  119.       infoPtr->nextPtr = dispPtr->selectionInfoPtr;
  120.       dispPtr->selectionInfoPtr = infoPtr;
  121. !     } else if ((infoPtr->owner != tkwin) && (infoPtr->clearProc != NULL)) {
  122. !     clearProc = infoPtr->clearProc;
  123. !     clearData = infoPtr->clearData;
  124.       }
  125.   
  126.       infoPtr->owner = tkwin;
  127. --- 488,506 ----
  128.       infoPtr->owner = tkwin;
  129.       infoPtr->nextPtr = dispPtr->selectionInfoPtr;
  130.       dispPtr->selectionInfoPtr = infoPtr;
  131. !     } else if (infoPtr->clearProc != NULL) {
  132. !     if (infoPtr->owner != tkwin) {
  133. !         clearProc = infoPtr->clearProc;
  134. !         clearData = infoPtr->clearData;
  135. !     } else if (infoPtr->clearProc == LostSelection) {
  136. !         /*
  137. !          * If the selection handler is one created by "selection own",
  138. !          * be sure to free the record for it;  otherwise there will be
  139. !          * a memory leak.
  140. !          */
  141. ! 
  142. !         ckfree((char *) infoPtr->clearData);
  143. !     }
  144.       }
  145.   
  146.       infoPtr->owner = tkwin;
  147. *** ../tk4.0p1/./tkSend.c    Wed Jul 26 17:13:26 1995
  148. --- ./tkSend.c    Mon Aug 21 10:49:15 1995
  149. ***************
  150. *** 12,18 ****
  151.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  152.    */
  153.   
  154. ! static char sccsid[] = "@(#) tkSend.c 1.49 95/07/26 17:13:25";
  155.   
  156.   #include "tkPort.h"
  157.   #include "tkInt.h"
  158. --- 12,18 ----
  159.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  160.    */
  161.   
  162. ! static char sccsid[] = "@(#) tkSend.c 1.50 95/08/21 10:49:10";
  163.   
  164.   #include "tkPort.h"
  165.   #include "tkInt.h"
  166. ***************
  167. *** 65,74 ****
  168.                    * been modified, so it needs to be written
  169.                    * out when the NameRegistry is closed. */
  170.       unsigned long propLength;    /* Length of the property, in bytes. */
  171. !     char *property;        /* The contents of the property.  See format
  172. !                  * above;  this is *not* terminated by the
  173. !                  * first null character.  Dynamically
  174. !                  * allocated. */
  175.       int allocedByX;        /* Non-zero means must free property with
  176.                    * XFree;  zero means use ckfree. */
  177.   } NameRegistry;
  178. --- 65,74 ----
  179.                    * been modified, so it needs to be written
  180.                    * out when the NameRegistry is closed. */
  181.       unsigned long propLength;    /* Length of the property, in bytes. */
  182. !     char *property;        /* The contents of the property, or NULL
  183. !                  * if none.  See format description above;
  184. !                  * this is *not* terminated by the first
  185. !                  * null character.  Dynamically allocated. */
  186.       int allocedByX;        /* Non-zero means must free property with
  187.                    * XFree;  zero means use ckfree. */
  188.   } NameRegistry;
  189. ***************
  190. *** 328,334 ****
  191.       /*
  192.        * Xlib placed an extra null byte after the end of the property, just
  193.        * to make sure that it is always NULL-terminated.  Be sure to include
  194. !      * this byte in our count if it's needed to ensure null termination.
  195.        */
  196.   
  197.       if ((regPtr->propLength > 0)
  198. --- 328,336 ----
  199.       /*
  200.        * Xlib placed an extra null byte after the end of the property, just
  201.        * to make sure that it is always NULL-terminated.  Be sure to include
  202. !      * this byte in our count if it's needed to ensure null termination
  203. !      * (note: as of 8/95 I'm no longer sure why this code is needed;  seems
  204. !      * like it shouldn't be).
  205.        */
  206.   
  207.       if ((regPtr->propLength > 0)
  208. ***************
  209. *** 455,461 ****
  210.    *    None.
  211.    *
  212.    * Side effects:
  213. !  *    The open registry is exapanded;  it is marked as modified so that
  214.    *    it will be written back when closed.
  215.    *
  216.    *----------------------------------------------------------------------
  217. --- 457,463 ----
  218.    *    None.
  219.    *
  220.    * Side effects:
  221. !  *    The open registry is expanded;  it is marked as modified so that
  222.    *    it will be written back when closed.
  223.    *
  224.    *----------------------------------------------------------------------
  225. ***************
  226. *** 481,487 ****
  227.       newProp = (char *) ckalloc((unsigned) (regPtr->propLength + newBytes));
  228.       strcpy(newProp, id);
  229.       strcpy(newProp+idLength, name);
  230. !     if (regPtr->propLength > 0) {
  231.       memcpy((VOID *) (newProp + newBytes), (VOID *) regPtr->property,
  232.           regPtr->propLength);
  233.       if (regPtr->allocedByX) {
  234. --- 483,489 ----
  235.       newProp = (char *) ckalloc((unsigned) (regPtr->propLength + newBytes));
  236.       strcpy(newProp, id);
  237.       strcpy(newProp+idLength, name);
  238. !     if (regPtr->property != NULL) {
  239.       memcpy((VOID *) (newProp + newBytes), (VOID *) regPtr->property,
  240.           regPtr->propLength);
  241.       if (regPtr->allocedByX) {
  242. ***************
  243. *** 537,543 ****
  244.       }
  245.       XFlush(regPtr->dispPtr->display);
  246.   
  247. !     if (regPtr->propLength > 0) {
  248.       if (regPtr->allocedByX) {
  249.           XFree(regPtr->property);
  250.       } else {
  251. --- 539,545 ----
  252.       }
  253.       XFlush(regPtr->dispPtr->display);
  254.   
  255. !     if (regPtr->property != NULL) {
  256.       if (regPtr->allocedByX) {
  257.           XFree(regPtr->property);
  258.       } else {
  259. *** ../tk4.0p1/./tkVisual.c    Tue May  9 13:47:46 1995
  260. --- ./tkVisual.c    Wed Aug 16 10:43:49 1995
  261. ***************
  262. *** 12,18 ****
  263.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  264.    */
  265.   
  266. ! static char sccsid[] = "@(#) tkVisual.c 1.12 95/05/09 13:47:42";
  267.   
  268.   #include "tkInt.h"
  269.   #include "tkPort.h"
  270. --- 12,18 ----
  271.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  272.    */
  273.   
  274. ! static char sccsid[] = "@(#) tkVisual.c 1.13 95/08/16 10:43:48";
  275.   
  276.   #include "tkInt.h"
  277.   #include "tkPort.h"
  278. ***************
  279. *** 313,318 ****
  280. --- 313,319 ----
  281.           cmapPtr->colormap = XCreateColormap(Tk_Display(tkwin),
  282.               RootWindowOfScreen(Tk_Screen(tkwin)), visual,
  283.               AllocNone);
  284. +         cmapPtr->visual = NULL;
  285.           cmapPtr->refCount = 1;
  286.           cmapPtr->shareable = 1;
  287.           cmapPtr->nextPtr = dispPtr->cmapPtr;
  288. *** ../tk4.0p1/./tkWm.c    Sat Jul 22 16:04:58 1995
  289. --- ./tkWm.c    Mon Aug 21 10:49:16 1995
  290. ***************
  291. *** 13,19 ****
  292.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  293.    */
  294.   
  295. ! static char sccsid[] = "@(#) tkWm.c 1.107 95/07/22 16:04:57";
  296.   
  297.   #include "tkPort.h"
  298.   #include "tkInt.h"
  299. --- 13,19 ----
  300.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  301.    */
  302.   
  303. ! static char sccsid[] = "@(#) tkWm.c 1.108 95/08/21 10:49:12";
  304.   
  305.   #include "tkPort.h"
  306.   #include "tkInt.h"
  307. ***************
  308. *** 840,845 ****
  309. --- 840,846 ----
  310.               Tcl_AppendElement(interp, winPtr2->pathName);
  311.           }
  312.           }
  313. +         XFree((char *) cmapList);
  314.           return TCL_OK;
  315.       }
  316.       if (Tcl_SplitList(interp, argv[3], &windowArgc, &windowArgv)
  317. *** ../tk4.0p1/./tkMenu.c    Sat Jul 22 16:05:26 1995
  318. --- ./tkMenu.c    Sat Aug 26 17:21:15 1995
  319. ***************
  320. *** 13,19 ****
  321.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  322.    */
  323.   
  324. ! static char sccsid[] = "@(#) tkMenu.c 1.93 95/07/22 16:05:23";
  325.   
  326.   #include "tkPort.h"
  327.   #include "default.h"
  328. --- 13,19 ----
  329.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  330.    */
  331.   
  332. ! static char sccsid[] = "@(#) tkMenu.c 1.94 95/08/26 17:21:13";
  333.   
  334.   #include "tkPort.h"
  335.   #include "default.h"
  336. ***************
  337. *** 1741,1755 ****
  338.               bgBorder, menuPtr->borderWidth, mePtr->y,
  339.               Tk_Width(tkwin) - 2*menuPtr->borderWidth, mePtr->height,
  340.               menuPtr->activeBorderWidth, TK_RELIEF_RAISED);
  341. -         gc = mePtr->activeGC;
  342. -         if (gc == NULL) {
  343. -         gc = menuPtr->activeGC;
  344. -         }
  345.       } else {
  346.           Tk_Fill3DRectangle(menuPtr->tkwin, Tk_WindowId(tkwin),
  347.               bgBorder, menuPtr->borderWidth, mePtr->y,
  348.               Tk_Width(tkwin) - 2*menuPtr->borderWidth, mePtr->height,
  349.               0, TK_RELIEF_FLAT);
  350.           if ((mePtr->state == tkDisabledUid)
  351.               && (menuPtr->disabledFg != NULL)) {
  352.           gc = mePtr->disabledGC;
  353. --- 1741,1763 ----
  354.               bgBorder, menuPtr->borderWidth, mePtr->y,
  355.               Tk_Width(tkwin) - 2*menuPtr->borderWidth, mePtr->height,
  356.               menuPtr->activeBorderWidth, TK_RELIEF_RAISED);
  357.       } else {
  358.           Tk_Fill3DRectangle(menuPtr->tkwin, Tk_WindowId(tkwin),
  359.               bgBorder, menuPtr->borderWidth, mePtr->y,
  360.               Tk_Width(tkwin) - 2*menuPtr->borderWidth, mePtr->height,
  361.               0, TK_RELIEF_FLAT);
  362. +     }
  363. + 
  364. +     /*
  365. +      * Choose the gc for drawing the foreground part of the entry.
  366. +      */
  367. + 
  368. +     if ((mePtr->state == tkActiveUid) && !strictMotif) {
  369. +         gc = mePtr->activeGC;
  370. +         if (gc == NULL) {
  371. +         gc = menuPtr->activeGC;
  372. +         }
  373. +     } else {
  374.           if ((mePtr->state == tkDisabledUid)
  375.               && (menuPtr->disabledFg != NULL)) {
  376.           gc = mePtr->disabledGC;
  377. *** ../tk4.0p1/./tkCanvas.c    Thu Jul 27 13:23:50 1995
  378. --- ./tkCanvas.c    Wed Aug 16 09:42:14 1995
  379. ***************
  380. *** 12,18 ****
  381.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  382.    */
  383.   
  384. ! static char sccsid[] = "@(#) tkCanvas.c 1.101 95/07/27 13:23:48";
  385.   
  386.   #include "default.h"
  387.   #include "tkInt.h"
  388. --- 12,18 ----
  389.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  390.    */
  391.   
  392. ! static char sccsid[] = "@(#) tkCanvas.c 1.103 95/08/16 09:42:13";
  393.   
  394.   #include "default.h"
  395.   #include "tkInt.h"
  396. ***************
  397. *** 311,316 ****
  398. --- 311,317 ----
  399.       canvasPtr->drawableXOrigin = canvasPtr->drawableYOrigin = 0;
  400.       canvasPtr->bindingTable = NULL;
  401.       canvasPtr->currentItemPtr = NULL;
  402. +     canvasPtr->newCurrentPtr = NULL;
  403.       canvasPtr->closeEnough = 0.0;
  404.       canvasPtr->pickEvent.type = LeaveNotify;
  405.       canvasPtr->pickEvent.xcrossing.x = 0;
  406. ***************
  407. *** 771,776 ****
  408. --- 772,781 ----
  409.               canvasPtr->currentItemPtr = NULL;
  410.               canvasPtr->flags |= REPICK_NEEDED;
  411.           }
  412. +         if (itemPtr == canvasPtr->newCurrentPtr) {
  413. +             canvasPtr->newCurrentPtr = NULL;
  414. +             canvasPtr->flags |= REPICK_NEEDED;
  415. +         }
  416.           if (itemPtr == canvasPtr->textInfo.focusItemPtr) {
  417.               canvasPtr->textInfo.focusItemPtr = NULL;
  418.           }
  419. ***************
  420. *** 2882,2888 ****
  421.                        * LeaveWindow, ButtonRelease, or
  422.                        * MotionNotify. */
  423.   {
  424. -     Tk_Item *closestPtr = NULL;
  425.       double coords[2];
  426.       int buttonDown;
  427.   
  428. --- 2887,2892 ----
  429. ***************
  430. *** 2957,2965 ****
  431.       coords[0] = canvasPtr->pickEvent.xcrossing.x + canvasPtr->xOrigin;
  432.       coords[1] = canvasPtr->pickEvent.xcrossing.y + canvasPtr->yOrigin;
  433.       if (canvasPtr->pickEvent.type != LeaveNotify) {
  434. !     closestPtr = CanvasFindClosest(canvasPtr, coords);
  435.       }
  436.   
  437.       /*
  438.        * Simulate a LeaveNotify event on the previous current item and
  439.        * an EnterNotify event on the new current item.  Remove the "current"
  440. --- 2961,2980 ----
  441.       coords[0] = canvasPtr->pickEvent.xcrossing.x + canvasPtr->xOrigin;
  442.       coords[1] = canvasPtr->pickEvent.xcrossing.y + canvasPtr->yOrigin;
  443.       if (canvasPtr->pickEvent.type != LeaveNotify) {
  444. !     canvasPtr->newCurrentPtr = CanvasFindClosest(canvasPtr, coords);
  445. !     } else {
  446. !     canvasPtr->newCurrentPtr = NULL;
  447.       }
  448.   
  449. +     if ((canvasPtr->newCurrentPtr == canvasPtr->currentItemPtr)
  450. +         && !(canvasPtr->flags & LEFT_GRABBED_ITEM)) {
  451. +     /*
  452. +      * Nothing to do:  the current item hasn't changed.
  453. +      */
  454. + 
  455. +     return;
  456. +     }
  457. + 
  458.       /*
  459.        * Simulate a LeaveNotify event on the previous current item and
  460.        * an EnterNotify event on the new current item.  Remove the "current"
  461. ***************
  462. *** 2967,2973 ****
  463.        * item.
  464.        */
  465.   
  466. !     if ((closestPtr != canvasPtr->currentItemPtr)
  467.           && (canvasPtr->currentItemPtr != NULL)
  468.           && !(canvasPtr->flags & LEFT_GRABBED_ITEM)) {
  469.       XEvent event;
  470. --- 2982,2988 ----
  471.        * item.
  472.        */
  473.   
  474. !     if ((canvasPtr->newCurrentPtr != canvasPtr->currentItemPtr)
  475.           && (canvasPtr->currentItemPtr != NULL)
  476.           && !(canvasPtr->flags & LEFT_GRABBED_ITEM)) {
  477.       XEvent event;
  478. ***************
  479. *** 3004,3034 ****
  480.       }
  481.       
  482.       /*
  483. !      * The binding for the leave event could have changed the canvas such
  484. !      * that closestPtr should no longer be the new current item.  In fact,
  485. !      * closestPtr may not even exist anymore.  The only safe thing is to
  486. !      * recompute the new current item.  Even the mouse position may have
  487. !      * changed, so recompute coords.
  488.        */
  489. - 
  490. -     coords[0] = canvasPtr->pickEvent.xcrossing.x + canvasPtr->xOrigin;
  491. -     coords[1] = canvasPtr->pickEvent.xcrossing.y + canvasPtr->yOrigin;
  492. -     buttonDown = canvasPtr->state
  493. -         & (Button1Mask|Button2Mask|Button3Mask|Button4Mask|Button5Mask);
  494. -     if (canvasPtr->pickEvent.type != LeaveNotify) {
  495. -         closestPtr = CanvasFindClosest(canvasPtr, coords);
  496. -     }
  497.       }
  498. !     if ((closestPtr != canvasPtr->currentItemPtr) && buttonDown) {
  499.       canvasPtr->flags |= LEFT_GRABBED_ITEM;
  500.       return;
  501.       }
  502. !     if ((closestPtr == canvasPtr->currentItemPtr)
  503. !         && !(canvasPtr->flags & LEFT_GRABBED_ITEM)) {
  504. !     return;
  505. !     }
  506.       canvasPtr->flags &= ~LEFT_GRABBED_ITEM;
  507. !     canvasPtr->currentItemPtr = closestPtr;
  508.       if (canvasPtr->currentItemPtr != NULL) {
  509.       XEvent event;
  510.   
  511. --- 3019,3042 ----
  512.       }
  513.       
  514.       /*
  515. !      * Note:  during CanvasDoEvent above, it's possible that
  516. !      * canvasPtr->newCurrentPtr got reset to NULL because the
  517. !      * item was deleted.
  518.        */
  519.       }
  520. !     if ((canvasPtr->newCurrentPtr != canvasPtr->currentItemPtr) && buttonDown) {
  521.       canvasPtr->flags |= LEFT_GRABBED_ITEM;
  522.       return;
  523.       }
  524. ! 
  525. !     /*
  526. !      * Special note:  it's possible that canvasPtr->newCurrentPtr ==
  527. !      * canvasPtr->currentItemPtr here.  This can happen, for example,
  528. !      * if LEFT_GRABBED_ITEM was set.
  529. !      */
  530. ! 
  531.       canvasPtr->flags &= ~LEFT_GRABBED_ITEM;
  532. !     canvasPtr->currentItemPtr = canvasPtr->newCurrentPtr;
  533.       if (canvasPtr->currentItemPtr != NULL) {
  534.       XEvent event;
  535.   
  536. *** ../tk4.0p1/./tkCanvPs.c    Mon Jun 19 10:05:00 1995
  537. --- ./tkCanvPs.c    Fri Aug  4 10:05:09 1995
  538. ***************
  539. *** 12,18 ****
  540.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  541.    */
  542.   
  543. ! static char sccsid[] = "@(#) tkCanvPs.c 1.35 95/06/19 10:04:58";
  544.   
  545.   #include <stdio.h>
  546.   #include "tkInt.h"
  547. --- 12,18 ----
  548.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  549.    */
  550.   
  551. ! static char sccsid[] = "@(#) tkCanvPs.c 1.36 95/08/04 10:05:08";
  552.   
  553.   #include <stdio.h>
  554.   #include "tkInt.h"
  555. ***************
  556. *** 767,777 ****
  557.       }
  558.       strncpy(fontName, fieldPtrs[FAMILY_FIELD], (size_t) nameSize);
  559.       if (islower(UCHAR(fontName[0]))) {
  560. !     fontName[0] = toupper(fontName[0]);
  561.       }
  562.       for (p = fontName+1, i = nameSize-1; i > 0; p++, i--) {
  563.       if (isupper(UCHAR(*p))) {
  564. !         *p = tolower(*p);
  565.       }
  566.       }
  567.       *p = 0;
  568. --- 767,777 ----
  569.       }
  570.       strncpy(fontName, fieldPtrs[FAMILY_FIELD], (size_t) nameSize);
  571.       if (islower(UCHAR(fontName[0]))) {
  572. !     fontName[0] = toupper(UCHAR(fontName[0]));
  573.       }
  574.       for (p = fontName+1, i = nameSize-1; i > 0; p++, i--) {
  575.       if (isupper(UCHAR(*p))) {
  576. !         *p = tolower(UCHAR(*p));
  577.       }
  578.       }
  579.       *p = 0;
  580. *** ../tk4.0p1/./tkImgFmtPPM.c    Wed Jul 26 12:57:37 1995
  581. --- ./tkImgFmtPPM.c    Wed Aug 30 15:34:53 1995
  582. ***************
  583. *** 14,20 ****
  584.    *       Australian National University.
  585.    */
  586.   
  587. ! static char sccsid[] = "@(#) tkImgFmtPPM.c 1.8 95/07/26 12:57:36";
  588.   
  589.   #include "tkInt.h"
  590.   #include "tkPort.h"
  591. --- 14,20 ----
  592.    *       Australian National University.
  593.    */
  594.   
  595. ! static char sccsid[] = "@(#) tkImgFmtPPM.c 1.9 95/08/30 15:34:52";
  596.   
  597.   #include "tkInt.h"
  598.   #include "tkPort.h"
  599. ***************
  600. *** 381,388 ****
  601.           }
  602.           c = getc(f);
  603.       }
  604. !     buffer[i] = ' ';
  605. !     i++;
  606.       firstInLine = 0;
  607.       }
  608.       buffer[i] = 0;
  609. --- 381,390 ----
  610.           }
  611.           c = getc(f);
  612.       }
  613. !     if (i < (BUFFER_SIZE-1)) {
  614. !         buffer[i] = ' ';
  615. !         i++;
  616. !     }
  617.       firstInLine = 0;
  618.       }
  619.       buffer[i] = 0;
  620. *** ../tk4.0p1/./tkImgPhoto.c    Tue Jul 25 15:55:28 1995
  621. --- ./tkImgPhoto.c    Mon Aug 28 14:01:06 1995
  622. ***************
  623. *** 16,22 ****
  624.    *       Australian National University.
  625.    */
  626.   
  627. ! static char sccsid[] = "@(#) tkImgPhoto.c 1.27 95/07/25 15:55:25";
  628.   
  629.   #include "tkInt.h"
  630.   #include "tkPort.h"
  631. --- 16,22 ----
  632.    *       Australian National University.
  633.    */
  634.   
  635. ! static char sccsid[] = "@(#) tkImgPhoto.c 1.29 95/08/28 14:01:04";
  636.   
  637.   #include "tkInt.h"
  638.   #include "tkPort.h"
  639. ***************
  640. *** 2993,3004 ****
  641.       matched = 0;
  642.       for (formatPtr = formatList; formatPtr != NULL;
  643.        formatPtr = formatPtr->nextPtr) {
  644. !     if ((formatString != NULL)
  645. !         && (strncasecmp(formatString, formatPtr->name,
  646. !         strlen(formatPtr->name)) != 0)) {
  647. !         continue;
  648.       }
  649. -     matched = 1;
  650.       if (formatPtr->fileMatchProc != NULL) {
  651.           fseek(f, 0L, SEEK_SET);
  652.           if ((*formatPtr->fileMatchProc)(f, fileName, formatString,
  653. --- 2993,3010 ----
  654.       matched = 0;
  655.       for (formatPtr = formatList; formatPtr != NULL;
  656.        formatPtr = formatPtr->nextPtr) {
  657. !     if (formatString != NULL) {
  658. !         if (strncasecmp(formatString, formatPtr->name,
  659. !             strlen(formatPtr->name)) != 0) {
  660. !         continue;
  661. !         }
  662. !         matched = 1;
  663. !         if (formatPtr->fileMatchProc == NULL) {
  664. !         Tcl_AppendResult(interp, "-file option isn't supported for ",
  665. !             formatString, " images", (char *) NULL);
  666. !         return TCL_ERROR;
  667. !         }
  668.       }
  669.       if (formatPtr->fileMatchProc != NULL) {
  670.           fseek(f, 0L, SEEK_SET);
  671.           if ((*formatPtr->fileMatchProc)(f, fileName, formatString,
  672. ***************
  673. *** 3017,3023 ****
  674.       if (formatPtr == NULL) {
  675.       if ((formatString != NULL) && !matched) {
  676.           Tcl_AppendResult(interp, "image file format \"", formatString,
  677. !             "\" is unknown", (char *) NULL);
  678.       } else {
  679.           Tcl_AppendResult(interp,
  680.               "couldn't recognize data in image file \"",
  681. --- 3023,3029 ----
  682.       if (formatPtr == NULL) {
  683.       if ((formatString != NULL) && !matched) {
  684.           Tcl_AppendResult(interp, "image file format \"", formatString,
  685. !             "\" is not supported", (char *) NULL);
  686.       } else {
  687.           Tcl_AppendResult(interp,
  688.               "couldn't recognize data in image file \"",
  689. ***************
  690. *** 3072,3085 ****
  691.        * Scan through the table of file format handlers to find
  692.        * one which can handle the image.
  693.        */
  694.       matched = 0;
  695.       for (formatPtr = formatList; formatPtr != NULL;
  696.           formatPtr = formatPtr->nextPtr) {
  697. !     if ((formatString != NULL) && (strncasecmp(formatString,
  698. !         formatPtr->name, strlen(formatPtr->name)) != 0)) {
  699. !         continue;
  700.       }
  701. -     matched = 1;
  702.       if ((formatPtr->stringMatchProc != NULL)
  703.           && (*formatPtr->stringMatchProc)(string, formatString,
  704.           widthPtr, heightPtr)) {
  705. --- 3078,3099 ----
  706.        * Scan through the table of file format handlers to find
  707.        * one which can handle the image.
  708.        */
  709. + 
  710.       matched = 0;
  711.       for (formatPtr = formatList; formatPtr != NULL;
  712.           formatPtr = formatPtr->nextPtr) {
  713. !     if (formatString != NULL) {
  714. !         if (strncasecmp(formatString, formatPtr->name,
  715. !             strlen(formatPtr->name)) != 0) {
  716. !         continue;
  717. !         }
  718. !         matched = 1;
  719. !         if (formatPtr->stringMatchProc == NULL) {
  720. !         Tcl_AppendResult(interp, "-data option isn't supported for ",
  721. !             formatString, " images", (char *) NULL);
  722. !         return TCL_ERROR;
  723. !         }
  724.       }
  725.       if ((formatPtr->stringMatchProc != NULL)
  726.           && (*formatPtr->stringMatchProc)(string, formatString,
  727.           widthPtr, heightPtr)) {
  728. ***************
  729. *** 3089,3099 ****
  730.   
  731.       if (formatPtr == NULL) {
  732.       if ((formatString != NULL) && !matched) {
  733. !         Tcl_AppendResult(interp, "image file format \"", formatString,
  734. !             "\" is unknown", (char *) NULL);
  735.       } else {
  736. !         Tcl_AppendResult(interp, "no format found to parse",
  737. !             " image data string", (char *) NULL);
  738.       }
  739.       return TCL_ERROR;
  740.       }
  741. --- 3103,3113 ----
  742.   
  743.       if (formatPtr == NULL) {
  744.       if ((formatString != NULL) && !matched) {
  745. !         Tcl_AppendResult(interp, "image format \"", formatString,
  746. !             "\" is not supported", (char *) NULL);
  747.       } else {
  748. !         Tcl_AppendResult(interp, "couldn't recognize image data",
  749. !             (char *) NULL);
  750.       }
  751.       return TCL_ERROR;
  752.       }
  753. ***************
  754. *** 3191,3197 ****
  755.       xEnd = x + width;
  756.       yEnd = y + height;
  757.       if ((xEnd > masterPtr->width) || (yEnd > masterPtr->height)) {
  758. !     ImgPhotoSetSize(masterPtr, xEnd, yEnd);
  759.       }
  760.   
  761.       if ((y < masterPtr->ditherY) || ((y == masterPtr->ditherY)
  762. --- 3205,3212 ----
  763.       xEnd = x + width;
  764.       yEnd = y + height;
  765.       if ((xEnd > masterPtr->width) || (yEnd > masterPtr->height)) {
  766. !     ImgPhotoSetSize(masterPtr, MAX(xEnd, masterPtr->width),
  767. !         MAX(yEnd, masterPtr->height));
  768.       }
  769.   
  770.       if ((y < masterPtr->ditherY) || ((y == masterPtr->ditherY)
  771. ***************
  772. *** 3228,3234 ****
  773.           && (blockPtr->pitch == pitch)))) {
  774.       memcpy((VOID *) destLinePtr,
  775.           (VOID *) (blockPtr->pixelPtr + blockPtr->offset[0]),
  776. !         (size_t) (height * pitch));
  777.       } else {
  778.       for (hLeft = height; hLeft > 0;) {
  779.           srcLinePtr = blockPtr->pixelPtr + blockPtr->offset[0];
  780. --- 3243,3249 ----
  781.           && (blockPtr->pitch == pitch)))) {
  782.       memcpy((VOID *) destLinePtr,
  783.           (VOID *) (blockPtr->pixelPtr + blockPtr->offset[0]),
  784. !         (size_t) (height * width * 3));
  785.       } else {
  786.       for (hLeft = height; hLeft > 0;) {
  787.           srcLinePtr = blockPtr->pixelPtr + blockPtr->offset[0];
  788. ***************
  789. *** 3347,3353 ****
  790.       xEnd = x + width;
  791.       yEnd = y + height;
  792.       if ((xEnd > masterPtr->width) || (yEnd > masterPtr->height)) {
  793. !     ImgPhotoSetSize(masterPtr, xEnd, yEnd);
  794.       }
  795.   
  796.       if ((y < masterPtr->ditherY) || ((y == masterPtr->ditherY)
  797. --- 3362,3369 ----
  798.       xEnd = x + width;
  799.       yEnd = y + height;
  800.       if ((xEnd > masterPtr->width) || (yEnd > masterPtr->height)) {
  801. !     ImgPhotoSetSize(masterPtr, MAX(xEnd, masterPtr->width),
  802. !         MAX(yEnd, masterPtr->height));
  803.       }
  804.   
  805.       if ((y < masterPtr->ditherY) || ((y == masterPtr->ditherY)
  806. ***************
  807. *** 3956,3962 ****
  808.       height = masterPtr->height;
  809.       }
  810.       if ((width != masterPtr->width) || (height != masterPtr->height)) {
  811. !     ImgPhotoSetSize(masterPtr, width, height);
  812.       Tk_ImageChanged(masterPtr->tkMaster, 0, 0, 0, 0, masterPtr->width,
  813.           masterPtr->height);
  814.       }
  815. --- 3972,3979 ----
  816.       height = masterPtr->height;
  817.       }
  818.       if ((width != masterPtr->width) || (height != masterPtr->height)) {
  819. !     ImgPhotoSetSize(masterPtr, MAX(width, masterPtr->width),
  820. !         MAX(height, masterPtr->height));
  821.       Tk_ImageChanged(masterPtr->tkMaster, 0, 0, 0, 0, masterPtr->width,
  822.           masterPtr->height);
  823.       }
  824. *** ../tk4.0p1/./tkText.c    Thu Jul 20 09:42:41 1995
  825. --- ./tkText.c    Mon Aug 21 11:46:28 1995
  826. ***************
  827. *** 14,20 ****
  828.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  829.    */
  830.   
  831. ! static char sccsid[] = "@(#) tkText.c 1.80 95/07/20 09:42:42";
  832.   
  833.   #include "default.h"
  834.   #include "tkPort.h"
  835. --- 14,20 ----
  836.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  837.    */
  838.   
  839. ! static char sccsid[] = "@(#) tkText.c 1.82 95/08/21 11:46:27";
  840.   
  841.   #include "default.h"
  842.   #include "tkPort.h"
  843. ***************
  844. *** 279,284 ****
  845. --- 279,286 ----
  846.       textPtr->bindingTable = NULL;
  847.       textPtr->currentMarkPtr = NULL;
  848.       textPtr->pickEvent.type = LeaveNotify;
  849. +     textPtr->pickEvent.xcrossing.x = 0;
  850. +     textPtr->pickEvent.xcrossing.y = 0;
  851.       textPtr->numCurTags = 0;
  852.       textPtr->curTagArrayPtr = NULL;
  853.       textPtr->takeFocus = NULL;
  854. ***************
  855. *** 1547,1554 ****
  856.       startingLine = TkBTreeLineIndex(index.linePtr);
  857.       startingChar = index.charIndex;
  858.       if (startingLine >= numLines) {
  859. !     startingLine = 0;
  860. !     startingChar = 0;
  861.       }
  862.       if (argsLeft == 1) {
  863.       if (TkTextGetIndex(interp, textPtr, argv[i+2], &stopIndex) != TCL_OK) {
  864. --- 1549,1562 ----
  865.       startingLine = TkBTreeLineIndex(index.linePtr);
  866.       startingChar = index.charIndex;
  867.       if (startingLine >= numLines) {
  868. !     if (backwards) {
  869. !         startingLine = TkBTreeNumLines(textPtr->tree) - 1;
  870. !         startingChar = TkBTreeCharsInLine(TkBTreeFindLine(textPtr->tree,
  871. !             startingLine));
  872. !     } else {
  873. !         startingLine = 0;
  874. !         startingChar = 0;
  875. !     }
  876.       }
  877.       if (argsLeft == 1) {
  878.       if (TkTextGetIndex(interp, textPtr, argv[i+2], &stopIndex) != TCL_OK) {
  879. *** ../tk4.0p1/./tkTextIndex.c    Wed Jun 28 16:16:36 1995
  880. --- ./tkTextIndex.c    Mon Sep 18 13:26:54 1995
  881. ***************
  882. *** 11,17 ****
  883.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  884.    */
  885.   
  886. ! static char sccsid[] = "@(#) tkTextIndex.c 1.11 95/06/28 16:16:36";
  887.   
  888.   #include "default.h"
  889.   #include "tkPort.h"
  890. --- 11,17 ----
  891.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  892.    */
  893.   
  894. ! static char sccsid[] = "@(#) tkTextIndex.c 1.12 95/09/18 13:26:52";
  895.   
  896.   #include "default.h"
  897.   #include "tkPort.h"
  898. ***************
  899. *** 522,528 ****
  900.       while (isspace(UCHAR(*p))) {
  901.       p++;
  902.       }
  903. !     count = strtoul(p, &end, 0);
  904.       if (end == p) {
  905.       return NULL;
  906.       }
  907. --- 522,528 ----
  908.       while (isspace(UCHAR(*p))) {
  909.       p++;
  910.       }
  911. !     count = strtol(p, &end, 0);
  912.       if (end == p) {
  913.       return NULL;
  914.       }
  915. *** ../tk4.0p1/./tkCanvas.h    Sat Mar 18 16:47:24 1995
  916. --- ./tkCanvas.h    Wed Aug 16 09:39:37 1995
  917. ***************
  918. *** 10,16 ****
  919.    * See the file "license.terms" for information on usage and redistribution
  920.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  921.    *
  922. !  * @(#) tkCanvas.h 1.36 95/03/18 16:47:07
  923.    */
  924.   
  925.   #ifndef _TKCANVAS
  926. --- 10,16 ----
  927.    * See the file "license.terms" for information on usage and redistribution
  928.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  929.    *
  930. !  * @(#) tkCanvas.h 1.37 95/08/16 09:39:35
  931.    */
  932.   
  933.   #ifndef _TKCANVAS
  934. ***************
  935. *** 122,127 ****
  936. --- 122,133 ----
  937.                    * the address of an item named by id. */
  938.       Tk_Item *currentItemPtr;    /* The item currently containing the mouse
  939.                    * pointer, or NULL if none. */
  940. +     Tk_Item *newCurrentPtr;    /* The item that is about to become the
  941. +                  * current one, or NULL.  This field is
  942. +                  * used to detect deletions  of the new
  943. +                  * current item pointer that occur during
  944. +                  * Leave processing of the previous current
  945. +                  * item.  */
  946.       double closeEnough;        /* The mouse is assumed to be inside an
  947.                    * item if it is this close to it. */
  948.       XEvent pickEvent;        /* The event upon which the current choice
  949. *** ../tk4.0p1/./tkPort.h    Thu May 11 10:49:36 1995
  950. --- ./tkPort.h    Mon Aug 28 09:33:15 1995
  951. ***************
  952. *** 11,17 ****
  953.    * See the file "license.terms" for information on usage and redistribution
  954.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  955.    *
  956. !  * @(#) tkPort.h 1.5 95/05/11 10:49:35
  957.    */
  958.   
  959.   #ifndef _TKPORT
  960. --- 11,17 ----
  961.    * See the file "license.terms" for information on usage and redistribution
  962.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  963.    *
  964. !  * @(#) tkPort.h 1.6 95/08/28 09:33:16
  965.    */
  966.   
  967.   #ifndef _TKPORT
  968. ***************
  969. *** 79,92 ****
  970.   extern int errno;
  971.   
  972.   /*
  973. -  * Define OPEN_MAX if it isn't already defined for this system.
  974. -  */
  975. - 
  976. - #ifndef OPEN_MAX
  977. - #   define OPEN_MAX 256
  978. - #endif
  979. - 
  980. - /*
  981.    * The following macro defines the type of the mask arguments to
  982.    * select:
  983.    */
  984. --- 79,84 ----
  985. ***************
  986. *** 116,129 ****
  987.    * The following macro defines the number of fd_masks in an fd_set:
  988.    */
  989.   
  990.   #if !defined(howmany)
  991.   #   define howmany(x, y) (((x)+((y)-1))/(y))
  992.   #endif
  993. ! #ifdef NFDBITS
  994. ! #   define MASK_SIZE howmany(FD_SETSIZE, NFDBITS)
  995. ! #else
  996. ! #   define MASK_SIZE howmany(OPEN_MAX, NBBY*sizeof(fd_mask))
  997.   #endif
  998.   
  999.   /*
  1000.    * The following macro checks to see whether there is buffered
  1001. --- 108,127 ----
  1002.    * The following macro defines the number of fd_masks in an fd_set:
  1003.    */
  1004.   
  1005. + #ifndef FD_SETSIZE
  1006. + #   ifdef OPEN_MAX
  1007. + #    define FD_SETSIZE OPEN_MAX
  1008. + #   else
  1009. + #    define FD_SETSIZE 256
  1010. + #   endif
  1011. + #endif
  1012.   #if !defined(howmany)
  1013.   #   define howmany(x, y) (((x)+((y)-1))/(y))
  1014.   #endif
  1015. ! #ifndef NFDBITS
  1016. ! #   define NFDBITS NBBY*sizeof(fd_mask)
  1017.   #endif
  1018. + #define MASK_SIZE howmany(FD_SETSIZE, NFDBITS)
  1019.   
  1020.   /*
  1021.    * The following macro checks to see whether there is buffered
  1022. *** ../tk4.0p1/./changes    Fri Jul 28 10:20:44 1995
  1023. --- ./changes    Mon Sep 18 13:27:53 1995
  1024. ***************
  1025. *** 2,8 ****
  1026.   released on March 13, 1991.  Changes that aren't backward compatible
  1027.   are marked specially.
  1028.   
  1029. ! sccsid = %Z% %M% %I% %E% %U%
  1030.   
  1031.   3/16/91 (bug fix) Modified tkWindow.c to remove Tk's Tcl commands from
  1032.   the interpreter when the main window is deleted (otherwise there will
  1033. --- 2,8 ----
  1034.   released on March 13, 1991.  Changes that aren't backward compatible
  1035.   are marked specially.
  1036.   
  1037. ! sccsid = @(#) changes 1.23 95/09/18 13:27:50
  1038.   
  1039.   3/16/91 (bug fix) Modified tkWindow.c to remove Tk's Tcl commands from
  1040.   the interpreter when the main window is deleted (otherwise there will
  1041. ***************
  1042. *** 2453,2455 ****
  1043. --- 2453,2511 ----
  1044.   posted.
  1045.   
  1046.   ----------------- Released patch 4.0p1, 7/29/95 ----------------------
  1047. + 
  1048. + 8/4/95 (bug fix) Calls to toupper and tolower weren't using the UCHAR
  1049. + macro, so they didn't always work in non-U.S. locales. (JO)
  1050. + 
  1051. + 8/16/95 (bug fix) Canvases didn't generate proper Enter and Leave
  1052. + events if the Leave handler for an item reconfigured the canvas in
  1053. + a way that made the old current item the new current item again. (JO)
  1054. + 
  1055. + 8/21/95 (bug fixes) Fixed memory leaks in tkSend.c, tkSelect.c, and
  1056. + tkWm.c (JO).
  1057. + 
  1058. + 8/21/95 (bug fix) Text widgets didn't handle commands like
  1059. + ".t search -backwards foo end 1.0" properly:  never found foo.
  1060. + 
  1061. + 8/25/95 (bug fix) Fixed bug in libary/menu.tcl that caused "grab
  1062. + window not visible" errors for popup menus (and perhaps elsewhere?). (JO)
  1063. + 
  1064. + 8/25/95 (bug fix) Scrollbar bindings didn't properly handle case where
  1065. + B2 is clicked while B1 is already down. (JO)
  1066. + 
  1067. + 8/26/95 (bug fix) Menus were ignoring -activebackground if tk_strictMotif
  1068. + was set, but not -activeforeground.  Changed to ignore both. (JO)
  1069. + 
  1070. + 8/26/95 (bug fix) Scales and scrollbars didn't properly handle a
  1071. + -repeatdelay value of 0 (they shouldn't auto-repeat in this case). (JO)
  1072. + 
  1073. + 8/28/95 (bug fix) Tcl errors were occurring for tkPriv(oldGrab) when
  1074. + clicking on a disabled option menu. (JO)
  1075. + 
  1076. + 8/28/95 (bug fix) Changed event-handling code to use FD_SETSIZE instead
  1077. + of OPEN_MAX, since OPEN_MAX is incorrect on some systems (e.g., IRIX). (JO)
  1078. + 
  1079. + 8/28/95 (bug fix) Fixed bug in photo images that caused garbling of
  1080. + image data in the "put" and "copy" commands if the source data had
  1081. + only one scan line but had a width less than the width of the target
  1082. + image. (JO)
  1083. + 
  1084. + 8/29/95 (bug fix) Tk used to refuse to post menus if they had no
  1085. + entries.  This made it impossible for a menu to fill itself the first
  1086. + time it is posted.  Changed to allow menus with no entries to be
  1087. + posted. (JO)
  1088. + 
  1089. + 8/30/95 (new features) Added proper button 2 support to both scrollbars
  1090. + and scales (it sets the slider position from the mouse position). (JO)
  1091. + 
  1092. + 8/30/95 (bug fix) Fixed potential core dump that could occur in
  1093. + photo images (ReadPPMFileHeader could overflow buffer under some bad
  1094. + inputs, such as certain GIF images). (JO)
  1095. + 
  1096. + 8/39/95 (bug fix) Errors of the form `syntax error in expression "!"'
  1097. + could occasionally happen in tkScaleDrag. (JO)
  1098. + 
  1099. + 9/19/95 (bug fix) Fixed bug in text index processing that causes
  1100. + tests textIndex-11.1 and textIndex12.1 to fail on some platforms.
  1101. + 
  1102. + ----------------- Released patch 4.0p2, 9/19/95 ----------------------
  1103. *** ../tk4.0p1/./configure    Tue Jul 25 17:30:46 1995
  1104. --- ./configure    Mon Sep 18 11:08:13 1995
  1105. ***************
  1106. *** 401,407 ****
  1107.   
  1108.   
  1109.   
  1110. ! # @(#) configure.in 1.17 95/06/27 21:54:20
  1111.   
  1112.   ac_aux_dir=
  1113.   for ac_dir in $srcdir $srcdir/.. $srcdir/../..; do
  1114. --- 401,407 ----
  1115.   
  1116.   
  1117.   
  1118. ! # @(#) configure.in 1.18 95/09/05 17:04:17
  1119.   
  1120.   ac_aux_dir=
  1121.   for ac_dir in $srcdir $srcdir/.. $srcdir/../..; do
  1122. ***************
  1123. *** 1732,1738 ****
  1124.   #include <stdio.h>
  1125.   int main() { return 0; }
  1126.   int t() {
  1127. ! FILE *f = stdin; f->_gptr = f->egptr;
  1128.   ; return 0; }
  1129.   EOF
  1130.   if eval $ac_compile; then
  1131. --- 1732,1738 ----
  1132.   #include <stdio.h>
  1133.   int main() { return 0; }
  1134.   int t() {
  1135. ! FILE *f = stdin; f->_gptr = f->_egptr;
  1136.   ; return 0; }
  1137.   EOF
  1138.   if eval $ac_compile; then
  1139. *** ../tk4.0p1/./configure.in    Tue Jun 27 21:54:19 1995
  1140. --- ./configure.in    Tue Sep  5 17:04:17 1995
  1141. ***************
  1142. *** 3,9 ****
  1143.   dnl    to configure the system for the local environment.
  1144.   AC_INIT(tk.h)
  1145.   
  1146. ! # @(#) configure.in 1.17 95/06/27 21:54:20
  1147.   
  1148.   AC_PROG_INSTALL
  1149.   AC_PROG_RANLIB
  1150. --- 3,9 ----
  1151.   dnl    to configure the system for the local environment.
  1152.   AC_INIT(tk.h)
  1153.   
  1154. ! # @(#) configure.in 1.18 95/09/05 17:04:17
  1155.   
  1156.   AC_PROG_INSTALL
  1157.   AC_PROG_RANLIB
  1158. ***************
  1159. *** 224,230 ****
  1160.   fi
  1161.   if test "$fcnt" = ""; then
  1162.       AC_TRY_COMPILE([#include <stdio.h>],
  1163. !     [FILE *f = stdin; f->_gptr = f->egptr;],
  1164.       tk_ok=yes, tk_ok=no)
  1165.       if test $tk_ok = yes; then
  1166.       AC_DEFINE(TK_FILE_GPTR)
  1167. --- 224,230 ----
  1168.   fi
  1169.   if test "$fcnt" = ""; then
  1170.       AC_TRY_COMPILE([#include <stdio.h>],
  1171. !     [FILE *f = stdin; f->_gptr = f->_egptr;],
  1172.       tk_ok=yes, tk_ok=no)
  1173.       if test $tk_ok = yes; then
  1174.       AC_DEFINE(TK_FILE_GPTR)
  1175. *** ../tk4.0p1/./library/listbox.tcl    Tue Jul 25 13:24:34 1995
  1176. --- ./library/listbox.tcl    Tue Aug 22 08:49:49 1995
  1177. ***************
  1178. *** 3,9 ****
  1179.   # This file defines the default bindings for Tk listbox widgets
  1180.   # and provides procedures that help in implementing those bindings.
  1181.   #
  1182. ! # @(#) listbox.tcl 1.12 95/07/25 13:24:32
  1183.   #
  1184.   # Copyright (c) 1994 The Regents of the University of California.
  1185.   # Copyright (c) 1994-1995 Sun Microsystems, Inc.
  1186. --- 3,9 ----
  1187.   # This file defines the default bindings for Tk listbox widgets
  1188.   # and provides procedures that help in implementing those bindings.
  1189.   #
  1190. ! # @(#) listbox.tcl 1.13 95/08/22 08:49:50
  1191.   #
  1192.   # Copyright (c) 1994 The Regents of the University of California.
  1193.   # Copyright (c) 1994-1995 Sun Microsystems, Inc.
  1194. ***************
  1195. *** 26,33 ****
  1196.   # The code below creates the default class bindings for listboxes.
  1197.   #-------------------------------------------------------------------------
  1198.   
  1199.   bind Listbox <1> {
  1200. !     tkListboxBeginSelect %W [%W index @%x,%y]
  1201.   }
  1202.   bind Listbox <B1-Motion> {
  1203.       set tkPriv(x) %x
  1204. --- 26,41 ----
  1205.   # The code below creates the default class bindings for listboxes.
  1206.   #-------------------------------------------------------------------------
  1207.   
  1208. + # Note: the check for existence of %W below is because this binding
  1209. + # is sometimes invoked after a window has been deleted (e.g. because
  1210. + # there is a double-click binding on the widget that deletes it).  Users
  1211. + # can put "break"s in their bindings to avoid the error, but this check
  1212. + # makes that unnecessary.
  1213. + 
  1214.   bind Listbox <1> {
  1215. !     if [winfo exists %W] {
  1216. !     tkListboxBeginSelect %W [%W index @%x,%y]
  1217. !     }
  1218.   }
  1219.   bind Listbox <B1-Motion> {
  1220.       set tkPriv(x) %x
  1221. *** ../tk4.0p1/./library/menu.tcl    Fri Jul 28 09:35:56 1995
  1222. --- ./library/menu.tcl    Tue Aug 29 17:33:54 1995
  1223. ***************
  1224. *** 4,10 ****
  1225.   # It also implements keyboard traversal of menus and implements a few
  1226.   # other utility procedures related to menus.
  1227.   #
  1228. ! # @(#) menu.tcl 1.52 95/07/28 09:35:55
  1229.   #
  1230.   # Copyright (c) 1992-1994 The Regents of the University of California.
  1231.   # Copyright (c) 1994-1995 Sun Microsystems, Inc.
  1232. --- 4,10 ----
  1233.   # It also implements keyboard traversal of menus and implements a few
  1234.   # other utility procedures related to menus.
  1235.   #
  1236. ! # @(#) menu.tcl 1.54 95/08/29 17:33:53
  1237.   #
  1238.   # Copyright (c) 1992-1994 The Regents of the University of California.
  1239.   # Copyright (c) 1994-1995 Sun Microsystems, Inc.
  1240. ***************
  1241. *** 213,219 ****
  1242.       return
  1243.       }
  1244.       set menu [$w cget -menu]
  1245. !     if {($menu == "") || ([$menu index last] == "none")} {
  1246.       return
  1247.       }
  1248.       if ![string match $w.* $menu] {
  1249. --- 213,219 ----
  1250.       return
  1251.       }
  1252.       set menu [$w cget -menu]
  1253. !     if {$menu == ""} {
  1254.       return
  1255.       }
  1256.       if ![string match $w.* $menu] {
  1257. ***************
  1258. *** 431,437 ****
  1259.           && [winfo ismapped [winfo parent $menu]]} {
  1260.           set menu [winfo parent $menu]
  1261.       }
  1262. !     tkSaveGrabInfo $menu
  1263.       grab -global $menu
  1264.       }
  1265.   }
  1266. --- 431,449 ----
  1267.           && [winfo ismapped [winfo parent $menu]]} {
  1268.           set menu [winfo parent $menu]
  1269.       }
  1270. ! 
  1271. !     # Don't update grab information if the grab window isn't changing.
  1272. !     # Otherwise, we'll get an error when we unpost the menus and
  1273. !     # restore the grab, since the old grab window will not be viewable
  1274. !     # anymore.
  1275. ! 
  1276. !     if {$menu != [grab current $menu]} {
  1277. !         tkSaveGrabInfo $menu
  1278. !     }
  1279. ! 
  1280. !     # Must re-grab even if the grab window hasn't changed, in order
  1281. !     # to release the implicit grab from the button press.
  1282. ! 
  1283.       grab -global $menu
  1284.       }
  1285.   }
  1286. *** ../tk4.0p1/./library/scale.tcl    Thu Jun  8 13:18:31 1995
  1287. --- ./library/scale.tcl    Wed Aug 30 09:46:56 1995
  1288. ***************
  1289. *** 3,9 ****
  1290.   # This file defines the default bindings for Tk scale widgets and provides
  1291.   # procedures that help in implementing the bindings.
  1292.   #
  1293. ! # @(#) scale.tcl 1.7 95/05/05 16:56:09
  1294.   #
  1295.   # Copyright (c) 1994 The Regents of the University of California.
  1296.   # Copyright (c) 1994-1995 Sun Microsystems, Inc.
  1297. --- 3,9 ----
  1298.   # This file defines the default bindings for Tk scale widgets and provides
  1299.   # procedures that help in implementing the bindings.
  1300.   #
  1301. ! # @(#) scale.tcl 1.9 95/08/30 09:46:57
  1302.   #
  1303.   # Copyright (c) 1994 The Regents of the University of California.
  1304.   # Copyright (c) 1994-1995 Sun Microsystems, Inc.
  1305. ***************
  1306. *** 50,56 ****
  1307.       tkScaleActivate %W %x %y
  1308.   }
  1309.   bind Scale <2> {
  1310. !     tkScaleButtonDown %W %x %y
  1311.   }
  1312.   bind Scale <B2-Motion> {
  1313.       tkScaleDrag %W %x %y
  1314. --- 50,56 ----
  1315.       tkScaleActivate %W %x %y
  1316.   }
  1317.   bind Scale <2> {
  1318. !     tkScaleButton2Down %W %x %y
  1319.   }
  1320.   bind Scale <B2-Motion> {
  1321.       tkScaleDrag %W %x %y
  1322. ***************
  1323. *** 211,218 ****
  1324.       set tkPriv(afterId) [after [$w cget -repeatinterval] \
  1325.           tkScaleIncrement $w $dir $big again]
  1326.       } elseif {$repeat == "initial"} {
  1327. !     set tkPriv(afterId) [after [$w cget -repeatdelay] \
  1328. !         tkScaleIncrement $w $dir $big again]
  1329.       }
  1330.   }
  1331.   
  1332. --- 211,221 ----
  1333.       set tkPriv(afterId) [after [$w cget -repeatinterval] \
  1334.           tkScaleIncrement $w $dir $big again]
  1335.       } elseif {$repeat == "initial"} {
  1336. !     set delay [$w cget -repeatdelay]
  1337. !     if {$delay > 0} {
  1338. !         set tkPriv(afterId) [after $delay \
  1339. !             tkScaleIncrement $w $dir $big again]
  1340. !     }
  1341.       }
  1342.   }
  1343.   
  1344. ***************
  1345. *** 232,235 ****
  1346. --- 235,262 ----
  1347.       } elseif {$el == "trough2"} {
  1348.       $w set [$w cget -to]
  1349.       }
  1350. + }
  1351. + 
  1352. + # tkScaleButton2Down
  1353. + # This procedure is invoked when button 2 is pressed over a scale.
  1354. + # It sets the value to correspond to the mouse position and starts
  1355. + # a slider drag.
  1356. + #
  1357. + # Arguments:
  1358. + # w -        The scrollbar widget.
  1359. + # x, y -    Mouse coordinates within the widget.
  1360. + 
  1361. + proc tkScaleButton2Down {w x y} {
  1362. +     global tkPriv
  1363. + 
  1364. +     if {[$w cget -state] == "disabled"} {
  1365. +     return;
  1366. +     }
  1367. +     $w configure -state active
  1368. +     $w set [$w get $x $y]
  1369. +     set tkPriv(dragging) 1
  1370. +     set tkPriv(initValue) [$w get]
  1371. +     set coords "$x $y"
  1372. +     set tkPriv(deltaX) 0
  1373. +     set tkPriv(deltaY) 0
  1374.   }
  1375. *** ../tk4.0p1/./library/scrollbar.tcl    Thu Jun 29 14:03:05 1995
  1376. --- ./library/scrollbar.tcl    Tue Sep  5 15:19:07 1995
  1377. ***************
  1378. *** 3,9 ****
  1379.   # This file defines the default bindings for Tk scrollbar widgets.
  1380.   # It also provides procedures that help in implementing the bindings.
  1381.   #
  1382. ! # @(#) scrollbar.tcl 1.13 95/06/29 14:03:03
  1383.   #
  1384.   # Copyright (c) 1994 The Regents of the University of California.
  1385.   # Copyright (c) 1994-1995 Sun Microsystems, Inc.
  1386. --- 3,9 ----
  1387.   # This file defines the default bindings for Tk scrollbar widgets.
  1388.   # It also provides procedures that help in implementing the bindings.
  1389.   #
  1390. ! # @(#) scrollbar.tcl 1.18 95/09/05 15:19:08
  1391.   #
  1392.   # Copyright (c) 1994 The Regents of the University of California.
  1393.   # Copyright (c) 1994-1995 Sun Microsystems, Inc.
  1394. ***************
  1395. *** 40,45 ****
  1396. --- 40,48 ----
  1397.   bind Scrollbar <B1-Motion> {
  1398.       tkScrollDrag %W %x %y
  1399.   }
  1400. + bind Scrollbar <B1-B2-Motion> {
  1401. +     tkScrollDrag %W %x %y
  1402. + }
  1403.   bind Scrollbar <ButtonRelease-1> {
  1404.       tkScrollButtonUp %W %x %y
  1405.   }
  1406. ***************
  1407. *** 50,57 ****
  1408.       # Prevents <Enter> binding from being invoked.
  1409.   }
  1410.   bind Scrollbar <2> {
  1411. !     tkScrollButtonDown %W %x %y
  1412.   }
  1413.   bind Scrollbar <B2-Motion> {
  1414.       tkScrollDrag %W %x %y
  1415.   }
  1416. --- 53,66 ----
  1417.       # Prevents <Enter> binding from being invoked.
  1418.   }
  1419.   bind Scrollbar <2> {
  1420. !     tkScrollButton2Down %W %x %y
  1421.   }
  1422. + bind Scrollbar <B1-2> {
  1423. +     # Do nothing, since button 1 is already down.
  1424. + }
  1425. + bind Scrollbar <B2-1> {
  1426. +     # Do nothing, since button 2 is already down.
  1427. + }
  1428.   bind Scrollbar <B2-Motion> {
  1429.       tkScrollDrag %W %x %y
  1430.   }
  1431. ***************
  1432. *** 58,63 ****
  1433. --- 67,78 ----
  1434.   bind Scrollbar <ButtonRelease-2> {
  1435.       tkScrollButtonUp %W %x %y
  1436.   }
  1437. + bind Scrollbar <B1-ButtonRelease-2> {
  1438. +     # Do nothing:  B1 release will handle it.
  1439. + }
  1440. + bind Scrollbar <B2-ButtonRelease-1> {
  1441. +     # Do nothing:  B2 release will handle it.
  1442. + }
  1443.   bind Scrollbar <B2-Leave> {
  1444.       # Prevents <Leave> binding from being invoked.
  1445.   }
  1446. ***************
  1447. *** 147,153 ****
  1448.   }
  1449.   
  1450.   # tkScrollSelect --
  1451. ! # This procedure is invoked when button 1 is pressed over the scrollbar.
  1452.   # It invokes one of several scrolling actions depending on where in
  1453.   # the scrollbar the button was pressed.
  1454.   #
  1455. --- 162,168 ----
  1456.   }
  1457.   
  1458.   # tkScrollSelect --
  1459. ! # This procedure is invoked when a button is pressed over the scrollbar.
  1460.   # It invokes one of several scrolling actions depending on where in
  1461.   # the scrollbar the button was pressed.
  1462.   #
  1463. ***************
  1464. *** 177,184 ****
  1465.       set tkPriv(afterId) [after [$w cget -repeatinterval] \
  1466.           tkScrollSelect $w $element again]
  1467.       } elseif {$repeat == "initial"} {
  1468. !     set tkPriv(afterId) [after [$w cget -repeatdelay] \
  1469. !         tkScrollSelect $w $element again]
  1470.       }
  1471.   }
  1472.   
  1473. --- 192,201 ----
  1474.       set tkPriv(afterId) [after [$w cget -repeatinterval] \
  1475.           tkScrollSelect $w $element again]
  1476.       } elseif {$repeat == "initial"} {
  1477. !     set delay [$w cget -repeatdelay]
  1478. !     if {$delay > 0} {
  1479. !         set tkPriv(afterId) [after $delay tkScrollSelect $w $element again]
  1480. !     }
  1481.       }
  1482.   }
  1483.   
  1484. ***************
  1485. *** 354,357 ****
  1486. --- 371,404 ----
  1487.       } elseif [string match *2 $element] {
  1488.       tkScrollToPos $w 1
  1489.       }
  1490. + }
  1491. + 
  1492. + # tkScrollButton2Down
  1493. + # This procedure is invoked when button 2 is pressed over a scrollbar.
  1494. + # If the button is over the trough or slider, it sets the scrollbar to
  1495. + # the mouse position and starts a slider drag.  Otherwise it just
  1496. + # behaves the same as button 1.
  1497. + #
  1498. + # Arguments:
  1499. + # w -        The scrollbar widget.
  1500. + # x, y -    Mouse coordinates within the widget.
  1501. + 
  1502. + proc tkScrollButton2Down {w x y} {
  1503. +     global tkPriv
  1504. +     set element [$w identify $x $y]
  1505. +     if {($element == "arrow1") || ($element == "arrow2")} {
  1506. +     tkScrollButtonDown $w $x $y
  1507. +     return
  1508. +     }
  1509. +     tkScrollToPos $w [$w fraction $x $y]
  1510. + 
  1511. +     # Need the "update idletasks" below so that the widget calls us
  1512. +     # back to reset the actual scrollbar position before we start the
  1513. +     # slider drag.
  1514. + 
  1515. +     update idletasks
  1516. +     set tkPriv(relief) [$w cget -activerelief]
  1517. +     $w configure -activerelief sunken
  1518. +     $w activate slider
  1519. +     tkScrollStartDrag $w $x $y
  1520.   }
  1521. *** ../tk4.0p1/./library/tk.tcl    Wed Jun 21 09:20:14 1995
  1522. --- ./library/tk.tcl    Wed Aug 30 16:40:21 1995
  1523. ***************
  1524. *** 3,9 ****
  1525.   # Initialization script normally executed in the interpreter for each
  1526.   # Tk-based application.  Arranges class bindings for widgets.
  1527.   #
  1528. ! # @(#) tk.tcl 1.67 95/06/19 10:45:49
  1529.   #
  1530.   # Copyright (c) 1992-1994 The Regents of the University of California.
  1531.   # Copyright (c) 1994-1995 Sun Microsystems, Inc.
  1532. --- 3,9 ----
  1533.   # Initialization script normally executed in the interpreter for each
  1534.   # Tk-based application.  Arranges class bindings for widgets.
  1535.   #
  1536. ! # @(#) tk.tcl 1.73 95/08/30 16:40:20
  1537.   #
  1538.   # Copyright (c) 1992-1994 The Regents of the University of California.
  1539.   # Copyright (c) 1994-1995 Sun Microsystems, Inc.
  1540. ***************
  1541. *** 52,58 ****
  1542.       set tkPriv(afterId) {}
  1543.       set tkPriv(buttons) 0
  1544.       set tkPriv(buttonWindow) {}
  1545. !     set tkPriv(dragging) {}
  1546.       set tkPriv(focus) {}
  1547.       set tkPriv(grab) {}
  1548.       set tkPriv(initPos) {}
  1549. --- 52,58 ----
  1550.       set tkPriv(afterId) {}
  1551.       set tkPriv(buttons) 0
  1552.       set tkPriv(buttonWindow) {}
  1553. !     set tkPriv(dragging) 0
  1554.       set tkPriv(focus) {}
  1555.       set tkPriv(grab) {}
  1556.       set tkPriv(initPos) {}
  1557. ***************
  1558. *** 59,64 ****
  1559. --- 59,65 ----
  1560.       set tkPriv(inMenubutton) {}
  1561.       set tkPriv(listboxPrev) {}
  1562.       set tkPriv(mouseMoved) 0
  1563. +     set tkPriv(oldGrab) {}
  1564.       set tkPriv(popup) {}
  1565.       set tkPriv(postedMb) {}
  1566.       set tkPriv(pressX) 0
  1567. *** ../tk4.0p1/./doc/scale.n    Wed Jun  7 21:15:49 1995
  1568. --- ./doc/scale.n    Wed Aug 30 10:05:02 1995
  1569. ***************
  1570. *** 5,14 ****
  1571.   '\" See the file "license.terms" for information on usage and redistribution
  1572.   '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  1573.   '\" 
  1574. ! '\" @(#) scale.n 1.23 95/06/07 21:15:31
  1575.   '\" 
  1576.   .so man.macros
  1577. ! .TH scale n 4.0 Tk "Tk Built-In Commands"
  1578.   .BS
  1579.   '\" Note:  do not modify the .SH NAME line immediately below!
  1580.   .SH NAME
  1581. --- 5,14 ----
  1582.   '\" See the file "license.terms" for information on usage and redistribution
  1583.   '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  1584.   '\" 
  1585. ! '\" @(#) scale.n 1.24 95/08/30 10:05:01
  1586.   '\" 
  1587.   .so man.macros
  1588. ! .TH scale n 4.1 Tk "Tk Built-In Commands"
  1589.   .BS
  1590.   '\" Note:  do not modify the .SH NAME line immediately below!
  1591.   .SH NAME
  1592. ***************
  1593. *** 322,341 ****
  1594.   the slider moves all the way to the end of its range, in the
  1595.   direction towards the mouse cursor.
  1596.   .IP [4]
  1597.   The Up and Left keys move the slider up (left) by the value
  1598.   of the \fBresolution\fR option.
  1599. ! .IP [5]
  1600.   The Down and Right keys move the slider down (right) by the value
  1601.   of the \fBresolution\fR option.
  1602. ! .IP [6]
  1603.   Control-Up and Control-Left move the slider up (left) by the
  1604.   value of the \fBbigIncrement\fR option.
  1605. ! .IP [7]
  1606.   Control-Down and Control-Right move the slider down (right) by the
  1607.   value of the \fBbigIncrement\fR option.
  1608. - .IP [8]
  1609. - Home moves the slider to the top (left) end of its range.
  1610.   .IP [9]
  1611.   End moves the slider to the bottom (right) end of its range.
  1612.   .PP
  1613.   If the scale is disabled using the \fBstate\fR option then
  1614. --- 322,345 ----
  1615.   the slider moves all the way to the end of its range, in the
  1616.   direction towards the mouse cursor.
  1617.   .IP [4]
  1618. + If button 2 is pressed, the scale's value is set to the mouse
  1619. + position.  If the mouse is dragged with button 2 down, the scale's
  1620. + value changes with the drag.
  1621. + .IP [5]
  1622.   The Up and Left keys move the slider up (left) by the value
  1623.   of the \fBresolution\fR option.
  1624. ! .IP [6]
  1625.   The Down and Right keys move the slider down (right) by the value
  1626.   of the \fBresolution\fR option.
  1627. ! .IP [7]
  1628.   Control-Up and Control-Left move the slider up (left) by the
  1629.   value of the \fBbigIncrement\fR option.
  1630. ! .IP [8]
  1631.   Control-Down and Control-Right move the slider down (right) by the
  1632.   value of the \fBbigIncrement\fR option.
  1633.   .IP [9]
  1634. + Home moves the slider to the top (left) end of its range.
  1635. + .IP [10]
  1636.   End moves the slider to the bottom (right) end of its range.
  1637.   .PP
  1638.   If the scale is disabled using the \fBstate\fR option then
  1639. *** ../tk4.0p1/./doc/scrollbar.n    Thu Jun 29 14:25:22 1995
  1640. --- ./doc/scrollbar.n    Wed Aug 30 10:05:02 1995
  1641. ***************
  1642. *** 5,14 ****
  1643.   '\" See the file "license.terms" for information on usage and redistribution
  1644.   '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  1645.   '\" 
  1646. ! '\" @(#) scrollbar.n 1.23 95/06/29 14:25:20
  1647.   '\" 
  1648.   .so man.macros
  1649. ! .TH scrollbar n 4.0 Tk "Tk Built-In Commands"
  1650.   .BS
  1651.   '\" Note:  do not modify the .SH NAME line immediately below!
  1652.   .SH NAME
  1653. --- 5,14 ----
  1654.   '\" See the file "license.terms" for information on usage and redistribution
  1655.   '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  1656.   '\" 
  1657. ! '\" @(#) scrollbar.n 1.24 95/08/30 10:05:00
  1658.   '\" 
  1659.   .so man.macros
  1660. ! .TH scrollbar n 4.1 Tk "Tk Built-In Commands"
  1661.   .BS
  1662.   '\" Note:  do not modify the .SH NAME line immediately below!
  1663.   .SH NAME
  1664. ***************
  1665. *** 335,342 ****
  1666.   document appears to move up (left) one unit.
  1667.   If the button is held down, the action auto-repeats.
  1668.   .IP [6]
  1669. ! All of the above actions may be invoked with button 2 as well
  1670. ! as with button 1.
  1671.   .IP [7]
  1672.   If button 1 is pressed with the Control key down, then if the
  1673.   mouse is over \fBarrow1\fR or \fBtrough1\fR the view changes
  1674. --- 335,345 ----
  1675.   document appears to move up (left) one unit.
  1676.   If the button is held down, the action auto-repeats.
  1677.   .IP [6]
  1678. ! If button 2 is pressed over the trough or the slider, it sets
  1679. ! the view to correspond to the mouse position;  dragging the
  1680. ! mouse with button 2 down causes the view to drag with the mouse.
  1681. ! If button 2 is pressed over one of the arrows, it causes the
  1682. ! same behavior as pressing button 1.
  1683.   .IP [7]
  1684.   If button 1 is pressed with the Control key down, then if the
  1685.   mouse is over \fBarrow1\fR or \fBtrough1\fR the view changes
  1686. *** ../tk4.0p1/./tests/imgPhoto.test    Wed Jun 21 15:50:08 1995
  1687. --- ./tests/imgPhoto.test    Mon Aug 28 09:52:10 1995
  1688. ***************
  1689. *** 21,27 ****
  1690.   #
  1691.   # Author: Paul Mackerras (paulus@cs.anu.edu.au)
  1692.   #
  1693. ! # @(#) imgPhoto.test 1.9 95/06/21 15:50:04
  1694.   
  1695.   if {[info procs test] != "test"} {
  1696.       source defs
  1697. --- 21,27 ----
  1698.   #
  1699.   # Author: Paul Mackerras (paulus@cs.anu.edu.au)
  1700.   #
  1701. ! # @(#) imgPhoto.test 1.10 95/08/28 09:52:11
  1702.   
  1703.   if {[info procs test] != "test"} {
  1704.       source defs
  1705. ***************
  1706. *** 52,58 ****
  1707.       list [catch {image create photo p1 -file \
  1708.           $tk_library/demos/images/teapot.ppm \
  1709.           -format no.such.format} err] $err
  1710. ! } {1 {image file format "no.such.format" is unknown}}
  1711.   test imgPhoto-1.4 {options for photo images} {
  1712.       image create photo p1 -file $tk_library/demos/images/teapot.ppm
  1713.       list [image width p1] [image height p1]
  1714. --- 52,58 ----
  1715.       list [catch {image create photo p1 -file \
  1716.           $tk_library/demos/images/teapot.ppm \
  1717.           -format no.such.format} err] $err
  1718. ! } {1 {image file format "no.such.format" is not supported}}
  1719.   test imgPhoto-1.4 {options for photo images} {
  1720.       image create photo p1 -file $tk_library/demos/images/teapot.ppm
  1721.       list [image width p1] [image height p1]
  1722. ***************
  1723. *** 237,243 ****
  1724.   test imgPhoto-4.33 {ImgPhotoCmd procedure: read option} {
  1725.       list [catch {p1 read $tk_library/demos/images/teapot.ppm \
  1726.           -format bogus} err] $err
  1727. ! } {1 {image file format "bogus" is unknown}}
  1728.   test imgPhoto-4.34 {ImgPhotoCmd procedure: read option} {
  1729.       list [catch {p1 read README} err] $err
  1730.   } {1 {couldn't recognize data in image file "README"}}
  1731. --- 237,243 ----
  1732.   test imgPhoto-4.33 {ImgPhotoCmd procedure: read option} {
  1733.       list [catch {p1 read $tk_library/demos/images/teapot.ppm \
  1734.           -format bogus} err] $err
  1735. ! } {1 {image file format "bogus" is not supported}}
  1736.   test imgPhoto-4.34 {ImgPhotoCmd procedure: read option} {
  1737.       list [catch {p1 read README} err] $err
  1738.   } {1 {couldn't recognize data in image file "README"}}
  1739.